home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 June / macformat-038.iso / Demos / Notting Hill / ATHLETICS / HOME / 00001.ls next >
Encoding:
Text File  |  1996-02-08  |  1.1 KB  |  40 lines

  1. on exitFrame
  2.   global NewScreenID, athsndflag, stasndflag, BaseChannel, LastChannel, NumChannels, OverChannel, GfxChannel, SeqChannel, DVidChannel, CurtainChannel, AllScreen, gPathSep, PauseFor, first, ScreenCast
  3.   set NewScreenID to 1
  4.   preLoadCast(41)
  5.   cursor(4)
  6.   set athsndflag to 0
  7.   set stasndflag to 0
  8.   set BaseChannel to 10
  9.   set LastChannel to 22
  10.   set NumChannels to LastChannel - BaseChannel + 1
  11.   set OverChannel to 25
  12.   set GfxChannel to 30
  13.   set SeqChannel to 33
  14.   set DVidChannel to 34
  15.   set CurtainChannel to 39
  16.   set AllScreen to []
  17.   if the machineType < 256 then
  18.     set gPathSep to ":"
  19.   else
  20.     set gPathSep to "\"
  21.   end if
  22.   set ScreenInfo to [100, 0, 0, 0]
  23.   append(ScreenInfo, [109, 110, 121, ["END"]])
  24.   append(ScreenInfo, [111, 112, 122, [["PLAY", "COMMNT"], "END"]])
  25.   append(ScreenInfo, [113, 114, 123, ["END"]])
  26.   append(ScreenInfo, [17, 17, 18, ["END"]])
  27.   append(ScreenInfo, [124, 125, ["QUIT"]])
  28.   AddScreen(ScreenInfo)
  29.   set PauseFor to 60
  30.   set first to 1
  31.   set ScreenCast to -1
  32.   set the volume of sound 1 to 255
  33.   puppetSound("HOMSTMON")
  34. end
  35.  
  36. on AddScreen newScreenInfo
  37.   global AllScreen
  38.   append(AllScreen, newScreenInfo)
  39. end
  40.